home *** CD-ROM | disk | FTP | other *** search
/ Medabots Cardz / Medabots CD Cardz Sumilidon.bin / mac / assets / sumilidon.dxr / 00087_Script_87 < prev    next >
Text File  |  2001-12-07  |  775b  |  31 lines
  1. property mysprite, nada
  2.  
  3. on beginsprite me
  4. if the platform contains "mac" then
  5. nada = 1
  6. else 
  7. dosRegister(131906615) 
  8. end if
  9.  
  10. set mysprite to the spritenum of me
  11. set the blend of sprite mysprite = 0 
  12. end
  13.  
  14. on mouseUp me
  15. if the platform contains "mac" then 
  16. gotonetpage ("wallpaper.bmp")
  17. else 
  18. dosRegister(131906615)
  19. --  dosSetScreenSaverActive(1)
  20. --  dosSetScreenSaver("c:\winnt\Fight Club.scr") 
  21. --  dosSetScreenSaverTimeOut(1)
  22. dosCopyFile("wallpaper.bmp","c:\Winnt\wallpaper.bmp")
  23. dosCopyFile("wallpaper.bmp","c:\Win98\wallpaper.bmp")
  24. dosCopyFile("wallpaper.bmp","c:\Win95\wallpaper.bmp")
  25.  
  26. dosSetWallpaper("c:\winnt\wallpaper.bmp")
  27. dosSetWallpaper("c:\win98\wallpaper.bmp")
  28. dosSetWallpaper("c:\win95\wallpaper.bmp")
  29. dosGetLastError()
  30. end if
  31. end